home *** CD-ROM | disk | FTP | other *** search
/ Get a Grip Tennis by Wilson / Get a Grip Tennis by Wilson.iso / pc / wilson.dxr / Internal_33_main menu image rotator.ls < prev    next >
Encoding:
Text File  |  2003-08-12  |  562 b   |  31 lines
  1. property pSprite, pImageList, pCounter, pImage
  2.  
  3. on beginSprite me
  4.   pSprite = sprite(the currentSpriteNum)
  5.   pImageList = []
  6.   repeat with i = 71 to 82
  7.     pImageList.add(member(i))
  8.   end repeat
  9.   pCounter = 1
  10.   pImage = 1
  11.   add(the actorList, pSprite)
  12. end
  13.  
  14. on stepFrame me
  15.   if pCounter = 60 then
  16.     if pImage = pImageList.count then
  17.       pImage = 1
  18.     else
  19.       pImage = pImage + 1
  20.     end if
  21.     pSprite.member = pImageList[pImage]
  22.     pCounter = 1
  23.   else
  24.     pCounter = pCounter + 1
  25.   end if
  26. end
  27.  
  28. on endSprite me
  29.   (the actorList).deleteOne(pSprite)
  30. end
  31.